home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / vpcalc23.zip / TEST.VPC < prev    next >
Text File  |  1991-09-08  |  433b  |  18 lines
  1. @Echo off
  2. "Start of " "Test.VPC
  3.  
  4. x This VPCalc code file tests GoTo and GoUpTo label
  5. x To run, start VPCalc.Exe.  At Command: prompt, enter:
  6. x     ----->>>>>  Run("Test  <<<<<-----;
  7. x Loops so hit ESC, Harry Smith, 90/01/07.
  8.  
  9. AutoDisplay(0)
  10. a = 1
  11. GoTo B
  12. c = 4
  13. b: GoTo C  d = 5
  14. e = 6  c: f = 3  d: Write("F = ") WriteLn(f) f = f - 1
  15. if f > 0 then GoUpTo d  else Z GoUpTo C  ~~~~Never gets here
  16.  
  17. "End of "  "Test.VPC
  18.